<%
badwordFilter = "Acik"
Dim badword
badword = "fuck|suck|sex"
metin = Request.Form("metin" )
strwords = Split(badword, "|" )
For I = 0 to Ubound(strwords)
metin = Replace(metin, strwords(I), String(Len(strwords(I)),"*" ), 1,-1,1)
next
If badwordFilter= "Acik" Then
Response.Write metin
else
Response.Write metin
End If
%>
Örneğin Bir Habere Yorum Yazacaksınız. Yukarıdaki Kodu Sayfanızın Form Bilgilerinin Olduğu Sayfaya Eklemelisiniz. Yukarıdaki Kod'da "badword" bölümüne istediğiniz kelimeleri "|" ile ayırarak ekleyin. "metin" yazan yerlere ise kendi form adınızı yazın. (örn: yorum)